home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / devel / tcl / itcl1_31.z / itcl1_31 / tcldev / itcl-1.3 / tests / all < prev    next >
Encoding:
Text File  |  1993-10-15  |  773 b   |  26 lines
  1. #
  2. # Main test suite for [incr Tcl]
  3. # ----------------------------------------------------------------------
  4. #   AUTHOR:  Michael J. McLennan       Phone: (215)770-2842
  5. #            AT&T Bell Laboratories   E-mail: aluxpo!mmc@att.com
  6. #
  7. #     SCCS:  @(#)all    1.3 (10/14/93)
  8. # ----------------------------------------------------------------------
  9. #            Copyright (c) 1993  AT&T  All Rights Reserved
  10. # ======================================================================
  11. global TEST_ABS_TOL TEST_REL_TOL
  12. set TEST_ABS_TOL 1.0e-6
  13. set TEST_REL_TOL 1.0e-5
  14.  
  15. if {![file readable "testlib.tcl"]} {
  16.     error "ERROR: execute test suite in \"tests\" directory"
  17. }
  18.  
  19. lappend auto_path .
  20.  
  21. foreach i [lsort [glob ./*.test]] {
  22.     source $i
  23. }
  24. puts stdout "== ALL TESTS SUCCESSFUL =="
  25. exit
  26.